﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<%
txt=request("txt")
name=qingtian.name(myid)
lid=request("myid")
ids=myid
yc=request("yc")
%>
<!--===以下为判定银子数量===-->
<%
set rspq=Server.CreateObject("ADODB.Recordset")
strSQL="select yz from wupin where cstr(ids)="&myid
rspq.open strSQL,liao,1,1
%>

<!--====[以下为银子足够]=====-->

<!--==开始读出资料==-->
<%
set rsp=Server.CreateObject("ADODB.Recordset")
strSQL="select dj,gj,fs,jy,tl,jj,xx,sd from sx where cstr(ids)="&myid
rsp.open strSQL,liao,1,1
dengji=clng(rsp("dj"))
mygj=rsp("gj")
myfs=rsp("fs")
myjy=rsp("jy")
mytl=rsp("tl")
myjj=rsp("jj")
myxx=rsp("xx")
mysd=rsp("sd")
rsp.close
set rsp=nothing
%>
<!--==开始储存资料==-->
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [tz] order by ID desc"
rs.open rsstr,liao,1,2
'----开始判断---
dim errr
errr=0
if rs.recordcount>0 then
	if rs("txt")=txt then errr=1
        if rspq("yz")<clng(txt) then errr=2
end if
'---表示输出---
if errr=1 then eer="请不要重复发布，<br/>正在返回江湖大厅！<br/>"
if errr=2 then eer="您的银子不够！<br/>正在返回江湖大厅！<br/>"
if errr<>1 and errr<>2 then
'---成功通过---
rs.addnew
'---开始储存---
if txt<>"" then rs("txt")=txt
rs("lid")=myid
rs("name")=name
rs("yc")=yc
rs("ids")=myid
rs("tl")=mytl
rs("jy")=myjy
rs("gj")=mygj
rs("fs")=myfs
rs("dj")=dengji
rs("jj")=myjj
rs("sd")=mysd
rs("xx")=myxx
rs.update

end if


if rs.recordcount=0 then
rs.addnew

if txt<>"" then rs("txt")=txt


rs("lid")=myid
rs("name")=myni
rs("yc")=yc
rs("ids")=myid
rs("tl")=mytl
rs("jy")=myjy
rs("gj")=mygj
rs("fs")=myfs
rs("dj")=dengji
rs("jj")=myjj
rs("sd")=mysd
rs("xx")=myxx
rs.update
end if

rs.close
set rs=Nothing
%>
<!--==开始输出结果==-->
<card title="发布成功">
<p>
<%if eer="" then%>
<%sql="update wupin set yz=yz-"&txt&" where cstr(ids)="&myid
  liao.Execute(sql)%>
挑战信息发布成功，<br/>
系统暂时扣除银子<%=txt%>两
<br/>
取消或结束挑战时候会返还
<br/>
<%else%>
<%=eer%>
<%end if%>
----------<br/>
<anchor><prev/>快速返回</anchor><br/>
<%qingtian.shuchu%>